Spektrum der Wissenschaft, Januar 2014
Perkulation beim Phasenbergang
======================================

ScriptBegin
var Grafik="Script Turtle";

var r=2;                // Radius
var wPen=0.2;           // Strichstrke mm
var cBack1="#1dff78";   // Hintergrund
var cBack2="#0098cb";"#00b2cb";
var cPen1="gray"; // Penfarbe
var cPen2="gray"; //"white";

var imax=68;
var jmax=45;

function init() //Initialisierungen
{ t.setBrush("black");
  t.setPage();
  t.setAntiAliasing();
} 


function draw() //Zeichenbefehle
{ 
  defFigur(); defShift();
  drawFiguren(0,0,13);

  t.setPen("black",wPen);
  t.rahmen();
}


function drawFiguren(x,y,w)
{
  t.goTo(x,y);
  t.turnTo(w);

  for(var i=-imax; i<imax; i++)
   {
   for (var j=-jmax; j<jmax; ++j) 
    { t.setNoStyle();
      t.goTo(x,y); t.shift("ShiftA",i); t.shift("ShiftB",j);
      if (0.5<t.rnd(1))
       { t.draw("Figur");}
      else 
       { t.setPen(cPen2,wPen); t.setBrush(cBack2);
        t.draw("Figur",false);
       }
    }
   }

}

function defFigur()
{ t.setNoStyle();
  t.rectPolygon(r,r);
  t.setPen(cPen1,wPen);
  t.setBrush(cBack1);
  t.defDraw("Figur");
}


function defShift()
{ t.setNoStyle();
  t.goTo(0,0); t.turnTo(0);
  t.move(r); 
  t.defPoint("ShiftA");

  t.goTo(0,0); t.turnTo(90);
  t.move(r); 
  t.defPoint("ShiftB");  

}


ScriptEnd

